COM AT^SVMC - VOICE MEMO 
COM V1.0	16.12.2004	T. Kleinmann	started
COM V1.1	14.01.2005	T. Kleinmann	added information regarding CR_5.
COM V1.2	23.02.2005	T. Kleinmann	This command will be dropped by CR5-Testing not needed any more 
COM According to CR-5, this command does not need to be supported any more

from attglobals import *

AT^SVMC=?
strParam=WAITFOR (1,'^SVMC:')

strActions=ExtractParameter(strParam,1,'^SVMC:')
strNumberOfMemos=ExtractParameter(strParam,2,'^SVMC:')
strLengthOfField=ExtractParameter(strParam,3,'^SVMC:')
strTime=ExtractParameter(strParam,4,'^SVMC:')

USERTEST('Parameters for VOICE MEMOS returned:',chr(13),chr(10),chr(13),chr(10),'Actions: \
',strActions,chr(13),chr(10),'Number of Memos: ',strNumberOfMemos,chr(13),chr(10),'Length of Filed: \
',strLengthOfField,chr(13),chr(10),'Time available: ',strTime,chr(13),chr(10),'Is that correct?')

AT^SVMC=0
WAIT FOR OK

AT^SVMC?
WAITFOR (1,'0')

MESSAGE('Please talk to your mobile for 15 seconds after you pressed OK!')

AT^SVMC=2
WAIT FOR OK

WAIT 500

AT^SVMC?
WAITFOR (1,'1')

WAIT 15000

AT^SVMC=0
WAIT FOR OK


MESSAGE('Please listen to your mobile after pressing OK')

AT^SVMC=3,1
WAIT FOR OK

WAIT 2000

AT^SVMC?
WAITFOR (1,'2')

USERTEST('Did the mobile play what you said?')

AT^SVMC=3,1
WAIT FOR OK

WAIT 2000

AT^SVMC
WAITFOR (1,'^SVMC: 2,"')

AT^SVMC
WAIT FOR OK

WAIT 20000



